(describe-function-1): Regexp-quote function name

when used as part of a regexp.

diff --git a/lisp/help.el b/lisp/help.el
index b3e726ba27ce93039e81ee9c8d6019d388acdb22..2690cdc9c043883aa9aa40ec1b993b2438f6d5e7 100644 (file)
--- a/lisp/help.el
+++ b/lisp/help.el
@@ -744,7 +744,7 @@ It can also be nil, if the definition is not associated with any file."
                              (name (progn
                                      (string-match " \\([^ ]+\\)>$" rep)
                                      (match-string 1 rep))))
-                        (if (looking-at (format "(%s[ )]" name))
+                        (if (looking-at (format "(%s[ )]" (regexp-quote name)))
                             (let ((start (point-marker)))
                               (goto-char (point-min))
                               (forward-paragraph)